home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / MPW_TOOL / TOOLS / TOOLS_WI / M4__ / SQROOT.M4 < prev   
Text File  |  1988-11-08  |  238b  |  8 lines
  1. define(square_root, 
  2.     `ifelse(eval($1<0),1,negative-square-root,
  3.                  `square_root_aux($1, 1, eval(($1+1)/2))')')
  4. define(square_root_aux,
  5.     `ifelse($3, $2, $3,
  6.         $3, eval($1/$2), $3,
  7.         `square_root_aux($1, $3, eval(($3+($1/$3))/2))')')
  8.